﻿Imports Model.Geometry

Public Class RectangleResult
    Public false_ptlist As List(Of Point3d)
    Public true_ptlist As List(Of Point3d)
    Public design_center As Point3d
    Public stand_ele As Double
    Public max_ele As Double
    Public min_ele As Double
    Public difmax_ele As Double
    Public difmin_ele As Double
    Public mileage As Double
    Public stand_mil As String
    Public maxpt As Point3d
    Public minpt As Point3d
    '上下设计值
    Public design_max As Double
    Public design_min As Double
    Public design_difmax As Double
    Public design_difmin As Double
    '中心线距侧墙的距离
    Public difCeGG As Double
    Public difCeGG_21 As Double
    Public difCeGG_42 As Double
    Public design_CeGG As Double

    '与站台相关的设计值
    Public design_ZTH = 1.5
    Public design_ZTV = 0.95
    Public dif_zth As Double
    Public dif_ztv As Double

    '方位角 平面
    Public Vec As SingleVector
    Public pl As Plane

    Public Sub New()
        false_ptlist = New List(Of Point3d)()
        true_ptlist = New List(Of Point3d)()
        design_center = New Point3d()
        Vec = New SingleVector()
        pl = New Plane()
        maxpt = New Point3d()
        minpt = New Point3d()
    End Sub


    ''' <summary>
    ''' 计算里程的通用表达方式
    ''' 如K44+95.332
    ''' </summary>
    ''' <remarks></remarks>
    Public Function standmil() As String
        stand_mil = "K" + Math.Truncate(mileage / 1000).ToString() + "+" + Math.Round((mileage - Math.Truncate(mileage / 1000) * 1000), 3).ToString()
        Return stand_mil
    End Function
End Class
